﻿Imports LogicaAT.SIREOS
Imports ServiciosAT

Namespace SIREOS
    Public Class CtEmpleado

        'Function desHabilitarEmpleado(emp As Integer, est As Integer, usu As Integer) As Boolean
        '    Dim oEmpleadoWS As New EmpleadoWS.Empleado
        '    Return oEmpleadoWS.desHabilitarEmpleado(emp, est, usu)
        'End Function

        Function listarEmpleados(oEmpleadoBE As SireosWSEmpleado.Empleado) As DataTable
            Dim oEmpleadoWS As New EmpleadoWSR
            Return oEmpleadoWS.listarEmpleados(oEmpleadoBE)
        End Function

    End Class
End Namespace